foo <- function() {
	b <- 32
	a <- -10
	while(a){ a <- a + 1 ; b <- b + 1 }
	b
}
foo()
